home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / languages / grs / pd_release / g / frontend < prev    next >
Encoding:
Text File  |  1991-03-04  |  280 b   |  18 lines
  1. (* simple front-end *)
  2.                 
  3. (null) expression ne;
  4. string s, temp;
  5.  
  6. loop
  7.    exiton (false=true);
  8.    write("> ");
  9.    s := "";
  10.    loop
  11.       read(temp);
  12.       exiton(temp="finished");
  13.       s := s+" "+temp;
  14.    endloop;
  15.    (*write(s,"\n");*)
  16.    exec(compile(s));
  17. endloop;
  18.